#!/usr/bin/perl



use Getopt::Long "GetOptions";

$ENV{"LC_ALL"} = "C";


use dictionary qw(%dbs %C);

&GetOptions(
	    's=s' => \$srcFile,
	    't=s' => \$tgtFile,
	    'a=s' => \$alignFile,
);


my($Corpus) = new dictionary($srcFile,$tgtFile,$alignFile);


for($i = 1; $i <= 49600; $i++)
{
	$Corpus->dictionary($i); 
}
